home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / STARS.BAS < prev    next >
BASIC Source File  |  1991-10-21  |  3KB  |  98 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: STARS.BAS          PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 10/18/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM DISPLAYS A CONSERVATIVE LOGO AGAINST A
  7. '  STARRY SKY
  8. '  VERSION: 0.00    LAST UPDATED: 10/21/91
  9. '----------------------------------------------------------
  10. $INCLUDE "COLORS.INC"
  11. CLS:STAR$ = CHR$(4):REM ** DIAMOND    **
  12. DIM STAR%(40,2)
  13. LOCATE 16,1:PRINT_
  14. "      ╓──────────┐ ╓─────────┐ ╓──────────┐ ╓─────────┐ ╓─────────┐ ╓───┐     ";
  15. PRINT_
  16. "      ║   ╓──┐   │ ║   ╓─┐   │ ║          │ ║         │ ║         │ ║   │     ";
  17. PRINT_
  18. "      ║   ║  │   │ ║   ║ │   │ ╚═══╗   ┌──┘ ║  ╓───┐  │ ║  ╓───┐  │ ║   │     ";
  19. PRINT_
  20. "      ║   ╚══╛   │ ║   ╚═╛   │     ║   │    ║  ║   │  │ ║  ║   │  │ ║   │     ";
  21. PRINT_
  22. "      ║          │ ║       ┌─┘     ║   │    ║  ║   │  │ ║  ║   │  │ ║   │     ";
  23. PRINT_
  24. "      ║   ┌──────┘ ║       └─┐     ║   │    ║  ║   │  │ ║  ║   │  │ ║   │     ";
  25. PRINT_
  26. "      ║   │        ║   ╓──┐  │     ║   │    ║  ╚═══╛  │ ║  ╚═══╛  │ ║   │     ";
  27. PRINT_
  28. "      ║   │        ║   ║  │  │     ║   │    ║         │ ║         │ ║   └────┐";
  29. PRINT_
  30. "      ║   │        ║   ╚══╛  │     ║   │    ║         │ ║         │ ║        │";
  31. PRINT_
  32. "      ╚═══╛        ╚═════════╛     ╚═══╛    ╚═════════╛ ╚═════════╛ ╚════════╛";
  33.  
  34. '*** INITIALIZE RANDOM ARRAY ***
  35. FOR I% = 1 TO 40
  36.    STAR%(I%,1) = INT(RND * 14) + 1
  37.    STAR%(I%,2) = INT(RND * 80) + 1
  38. NEXT I%
  39. KY$ = "":I% = 1:Q% = 0
  40. DO WHILE KY$ = ""
  41.    LOCATE STAR%(I%,1),STAR%(I%,2)
  42.    KY$ = INKEY$
  43.  
  44.    COLOR BROWN%, BLACK%
  45.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  46.    DELAY .1
  47.  
  48.    COLOR GRAY%, BLACK%
  49.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  50.    DELAY .1
  51.  
  52.    COLOR YELLOW%, BLACK%
  53.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  54.    DELAY .1
  55.  
  56.    COLOR WHITE%, BLACK%
  57.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  58.    DELAY .05
  59.  
  60.    COLOR HIGH.INTENSITY.WHITE%, BLACK%
  61.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  62.    DELAY .05
  63.  
  64.    COLOR WHITE%, BLACK%
  65.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  66.    DELAY .05
  67.  
  68.    COLOR YELLOW%, BLACK%
  69.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  70.    DELAY .1
  71.  
  72.    COLOR GRAY%, BLACK%
  73.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  74.    DELAY .1
  75.  
  76.    COLOR BROWN%, BLACK%
  77.    LOCATE STAR%(I%,1),STAR%(I%,2):PRINT STAR$;
  78.    DELAY .1
  79.  
  80.    I% = I% + 1
  81.    J% = J% + 1
  82.    IF I% > 30 AND Q% = 0 THEN
  83.       J% = 1
  84.       Q% = 1
  85.    END IF
  86.    IF I% > 40 THEN
  87.       I% = 1
  88.    END IF
  89.    IF J% > 40 THEN
  90.       J% = 1
  91.    END IF
  92.    IF Q% <> 0 THEN
  93.       LOCATE STAR%(J%,1),STAR%(J%,2):PRINT " ";
  94.    END IF
  95.  
  96. WEND
  97.  
  98.